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PP AA AA TT cc MM MM DD DD aden 
pp AA AA TT CCCCCCCC «OM MM DDDDDDDD saint 
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| 
LL IIII11 SSSSSSSS 
LL eeeeel SSSSSSSS 
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LL I] Ss | 
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1b-Se 1984 00:17:45 VAX=11 Bliss-32 HY bed Pa 1) 
1=8e5-1986 TEE 0 DISKSVMSMASTER: CPATCH.SRC CIPATCMD.832:1- (1), 


| 
1 MODULE PATCMD ( 

L ¢ RIF RVARIANT EQL 1 
os ws ADDRESSING_MODE (EXTERNAL = LONG_RELATIVE, NONEXTERNAL = LONG_RELATIVE), | 
IDENT = 'V04-000") = 


BEGIN 


See eR AAA AERAAAAA RARE EAAAEA EAE A AERA EAE AAA AAA EREES 


!® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
!® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'@ ALL RIGHTS RESERVED. 


te THIS ae BY IS ae nite gaat AND Bary A USED AND corite 


COoOno 


& 
* 
© 
% 
* 
® 
‘ | 
* | 
'e INCLUS ‘ OFTWARE OR ANY : Ke 7 
'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
'® TRANSFERRED. * 
te 
ef 
t 
* 
* 
* 
te 
* 


!® THE ee ae IN THIS SOFTWARE IS SUBJECT TO CHANGE W 
'* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGI 
i CORPORATION. 


ITHOUT NOTICE 
TAL EQUIPMENT 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


| 

| 

Reet i iri iii iii iii iti iii iii iiiiiiiiiiiiiiy! | 

i 

: FACILITY: PATCH | 

‘e+ 
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FUNCTIONAL DESCRIPTION: 


NOUS WNM 9 ODNOAOUS WN @OOOVNOUFS UNO 


ooooooo Sooooooooooooooo SSsSssssssss 
AANA AAA AI IP RIP POPU NIPONNIDY OO SS OOOO 


PATCH COMMAND LINE HANDLER 
0038 ! 
i History: 
uthor: 
Carol Peters, 05 Oct 1976: DBGEXC.B32 Version 01 
i MODIFIED BY: | 
| 


Use onegs, ozetes me $29¢5 attested ooeute lude: 
DYNMEM ATBAS. 32 PATCMD.B PATIHD ba. PATINT.B32, 
PATIO.B32, PATMAI.B PATMSG.MSG, PATWRT.B32, and PATSPA.B32. 


The shared messages are defined by DYNMEM.B32's invocation of 
SHRMSG.REQ and we sien} y Link against these symbols. They are 
declared as external literals below. 


v02-011 mTAO0OT e Rhodes 20-AUG-1981 
Modify module PaTSPROMPS “READ\GET LINE: write comments 
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PATCMD 16-Sep-19 145.“ VAK#11 BLiss-32_V4.0-742 2. 
v04-000 14- sen-1984 99: 45 ‘43 DISKSVMSMASTER:CPATCH.SRCJPATCMD. B32. 1% 15 
: 28 28 } } to the Journal file instead of trashing them. 

: 60 01 v02-010 PCG0001 Peter George 02-FEB-1981 

: 2 1 : } Add require statement for LIBS:PATDEF .REQ 

: es § | MODIFICATIONS: 

: 65 5 ; NO DATE PROGRAMMER PURPOSE 

: €$ 1 i 

; «668 068 1: 00 13-OCT-77 -77 K.D. WORSE CONVERT FOR PATCH 

; 9 1: 01 -DEC-77 K.D. MORSE ADD JOURNAL OUTPUT, 

; 0 01: CHANGE PROMPT 

: 71 mm oi 3-JAN-78 K.D. MORSE ADD CHECK FOR EOF 

; f b07¢ i 0 -JAN-78 K.D. MORSE TURN OFF r¥PE AHEAD AFTER 

: 7% ine 11 06 16-JAN-78 K.D. MORSE MAKE PATSPROMPT_READ TO 

. 0075 1: HANDLE COMMAND ROMPTING. 

: 7% 0076 11 05 23-JAN-78 K.D. MORSE CHANGE PATSCP_INP_STR TO 

.. iv 0077 1! PATSCP_INP_DSTS, A BLOCK OF INPUT 
: 78 0078 1: LINE DESCRIPTORS TO HANDLE 

; 9079 1 i PROMPTING AND MULTIPLE INPUT LINES. 
5 80 080 1! 06 #$21-MAR-78 K.D. MORSE ADD CHECK FOR thal AND 

; «81 0081 1} NO PATCH COMMA 

; 8 0082 1: 07 25-APR-78 K.D. MORSE CONVERT TO NAT VE COMPILER. 

; 8 0083 1: 08 UN-78 K.D. MORSE ADD FAO COUNT TO SIGNALS. 

3 Be goee : 09 19=JUN-78 K.D. MORSE ADD CHECK TO IGNORE COMMENTS. 

: 0086 1 i-- 


Pp 
SRCIPATCMD.B32; 


:CPATCH 


ss-32 V4 


Bli 
MSMASTER 


VAX=11 
DISKS$V 


93:53:96 


3B 


sep-1 
Sep-1 
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' Accepts a command 


PAT 
PAT 


! Prompts and reads a command 


! Defines literals 


OPN WT OFT OO 
PAA 


$3 


— 


SWITCHES LIST (SOURCE); 


EXTERNAL Roy int 
PAT$Sfao_out; 


! formats a Line and outputs to the terminal 


1eaeor198E 90:10:48 VBSHLSBLSESTBa tS: 


RCISYSSER.REQ; 1 


1984 00:17:4 VAX-11 Bliss-32 V4.0-742 P 5 
71984 19:45 DISKSVMSMASTER: CPATCH.SRCIPATCMD.B32;1>— (2) | 
EXTERNAL ROUTINE | 


PATSERR_HANDLER, Exception handler 
PATSFREERELEASE, 


Se33 


Releases free storage 


; 101 1 1 

3 7 1 1 

3; 1 1 : 

re 1 1 ; 
; 105 1010 1 : Allocates free storage 
; 198 1011 1 PATSPARS A_LINE, ! Parses a Line of input text 

: 10 1 \¢ 1 PATSWRITEFILE, ! Writes the journal file 
; H's : \; : GETFILDSC; : Returns the address of a file name descrip. 
; 110 1015 1 EXTERNAL 
; («111 Iot8 1 PATSCP_INP_DSCS : REF VECTOR C,LONG], ! Points to vector of input lh, descripto. 
; 118 131 1 PATSGB_TAKE_CMD, ! Indicator to accept more commands 
3 V1 1016 1 PATS$GB_INPNAME , ! Input file name 
; (116 133 1 PATSGL_ERRCODE, ! Global error code 
3 315 1020 1 PATSGL_INPFAB: BLOCK YTEJ, ! FAB for ‘SYSSINPUT' 
: 116 1021 1 PATSGL_INPRAB: BLOCK [, BYTE]J, ! RAB for ‘SYSS$INPUT' 
3 a4 18 ¢ : PATSGL_JNLRAB: BLOCK [C, BYTE); ! RAB for journal file 

; 6119 1024 1 EXTERNAL LITERAL 
3 131 + 5 : PATSK_INPNAMLNG, ! Input file name Length 

; : § 1037 : Define shared message references. (resolved @ Link time) 
3 156 1969 1 PAT$_CLOSEIN ! Error closing input file. | 
> (125 1030 1 PAT$_ CLOSEOUT, i Error closing output file. | 
: 126 1031 1 PAT$_OPENIN ' Error opening input file. 
: 137 1038 1 PATS_OPENOUT, i Error opening output file. | 
; 128 1033 1 PAT$S_READERR ! Error reading from file. 
: 129 1034 1 PAT$~SYSERROR, i System Service error. 
: 130 1035 1 PATS_WRITEERR; ! Error writing to file. 

3; (131 1036 1 

3 136 1037 1 

3 1038 1 


LITERAL 


we 


PATCH_PMT = 90; Patch command prompt offset 
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1b-Sen-1984 00:17:48 


JPATCMD.B32; 


SRC 


VAX-11 Bliss-32 V4.0-742 


DISKSVMSMASTER: CPATCH 


PS oe ee ee FS Oe Fe Oe Oe ES FS HS FS OS HS HS OS FS HS FS FS ES OS FS ES ES FES HES ESTE HS ee ESHEETS ESTES TS FSCS TS HS SHS SS HSE “STS HS*S*S*S HEHE HSS 


! String descriptor for parser 


Accepts a single command Line from the user at patch command Level. 
READ (PATCH_PMT, STG_DESC) 


The parser is called with the contents of the input buffer. 
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16-Sep-1984 00:17:45 VAX-11 Bisse =-32 vV4.0-742 7 
12-808- 1382 90:15:33 DISKSVMSMASTER:CPATCH.SRCJPATCMD. B32. 79 * 03) 


; 19 109 ! 3 
; 138 1 3 PATSPARS_A_LINE (STG_DESC); : 
> 19% 1 98 RETURN; : 
; 195 109 : : 
-TITLE PATCMD ; 
-IDENT \V04-000\ ; 
.EXTRN PATSEAO OUT, PATSERR_HANDLER : 
“EXTRN PATSFREERELEAS : 
.EXTRN ATSEREEZ BAT PARS A_LINE ; 
*EXTRN PAT WRITEFILE, GETFILBSC ; 
“EXTRN PATSCP_INP_DS sts® : 
-EXTRN PATS$GB_TAKE_C 
.EXTRN PAT$GB- INPNAME PATSGL ERRCODE 
~EXTRN PATSGL_INPFAB, PATSGL_INP 
-EXTRN PATS$GL_JNLRAB, PATSK TNPNAMENG 
.EXTRN PAT$_CCOSEIN, PATS_CCOSE 
EXTRN PATS_OPENIN $_OPENO 


. PAT OUT 
SEXTRN PATS$~ “READERR PATS_ SYSERROR 
SEXTRN PATS"WRITEERR 


-PSECT _PATSCODE ,NOWRT,2 


0000 00000 ENTRY PaTSCON PROC, Save nothing ; 1039 
5E 08 C2 B00Re SUBL2 #8, S 3 
6D 0022 CF DE 0000 MOVAL 3$, (F FP) : 1077 
6E 84 OO00A CLRW © STG_DESC ; 1087 
6— B65 sitiitd 18: TSTW STG_DESC : 1088 
11° 12 itt BNEQ 2s * : 
5E dD 0 O19 PUSH SP : 1090 
7E 5A 8F 9A 0001 MOVZBL #90, -(SP) : 
00000000V_ EF 26 FB 00016 ALLS aoe PATSPROMPT_READ : 
EC 5 Fe 00010 BLBS RO, 1$ : 
4 BORE RET 3 1092 
5E DD 00021 2$: PUSHL SP : 1097 
00000000G_ EF 01 FB $? 3 CALLS #1, PATSPARS_A_LINE : 
6% O2A RET : 1099 
0000 00028 3$: WORD Save nothing ; 1077 
7E D4 00020 CLRL -(SP) : 
5E op Hit PUSHL SP ; 
7E 04 AC 7D 000351 MOVa 4(AP), -(SP) 3 
00000000G_ EF 03 FB tH CALLS #3, PATSERR_HANDLER : 
04 0003C RET : 


3; Routine Size: 61 bytes, Routine Base: _PATSCODE + 0000 
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Ib-s¢ 1986 00:17:45 VAKe11 
12r808-13be 99:85:33 NS 
GLOBAL ROUTINE PATSPROMPT_READ(PROMPT_CODE, STG_DESC) = 


!e¢ 


i FUNCTIONAL DESCRIPTION: 
This routine requests a Line of input from SYSSINPUT. The prompt 
Bering is based on the prompt code passed as input. The command 
line is read. 
If the command read from the device SYSSINPUT is interpreted by 
RMS as EOF, or any other nonsuccessful return from RMS is seen, 
THEN cancel the command taking flag, and return. 

CALLING SEQUENCE: 
PATSPROMPT_READ(PROMPT_CODE, STG_DESC) 

INPUTS: 


PROMPT CODE = Code for which prompt to display 
STG_DESC = Input Line string descriptor 


IMPLICIT INPUTS: 
SYSSINPUT is already opened as the input channel. 
OUTPUTS: 
The input Line string descriptor is set. 
IMPLICIT OUTPUTS: 
The new input line is read. 
ROUTINE VALUE: 
Status code from read. 
SIDE EFFECTS: 
The command Line is written to the journal file. 


Oe ee ee ee 


BEGIN 
LITERAL 
NUM_OF _DSCS = 5, ! Number of default input Line descriptors 
MORES SCs : Be aenes ! Size to increment input Line table 
SPACES = %X'20' 
COMMENT CHAR = Axi", ! Comment delimiter 


T = 
COMTI NUE PAT os, 


H 8 | 
PATCMD 16-Sep-1984 00:17:45 VAX-11 Bliss-32 - Pa 9 | 
v04-000 137808- 1982 99:45 % DISKSVMSMASTER:CPATCH.SRCIPATCMD.B32:1>— (4) | 
5 ee 1157 MACRO 
; 255 M11 : PROMPT_MSG(PROMPT_STR) = UPLIT BYTE (ZASCII %STRING 
: 538 "1180 CTROMPT STRSCHARCRIGHT ANGLEDIDEC 
: 258 m 1161 PROMPT_SIZ(PROMPT_STR) = XCHARCOUNT (ASCII %STRING : | 
; 259 M 1166 (ZCHAR (CARRIAGE _RET) ,2CHAR(LINEFEED), 
: rs 1187 PROMPT_STR,2CHAR(RIGHT_ANGLE)))2%; 
; 64 1165 2 OWN 
: o 1198 PROMPT_MSG_PTR : MECTORCE | mgs TUT TLM. A, ! Prompt texts 
: 265 1168 PROMPT-MSG("OLD'), * 
; 266 118% PROMPT_MSG('NEW'), 
; 267 1170 PROMPT_MSG('LOC'), 
; 68 1171 PROMPT_MSG('NAM'), 
: 69 117% PROMPT _MSG('EXP'), 
: 70 117 PROMPT_MSG('ECO'), 
3 71 1174 PROMPT MSG(' ‘)) 
; si¢ a PROMPT_MSG_SIZ : VECTORCS,BYTET INITIAL { BYTEC ! Prompt text lengths 
: 22 1177 PROMPT-SI7Z("OLD'), - 
$ 75 1178 PROMPT _SIZ('NEW'), 
: 276 1179 PROMPT-SI2("LOC'), 
3; 277 1180 PROMPT-SIZ('NAM'), 
; 278 1181 PROMPT_SIZ("EXP'), 
: 444 1186 PROMPT _SIZ('ECO"), 
; 280 118 PROMPT"SIZ("_'))); 
: 281 1184 
3 gee 1185 LOCAL | 
3; 2 1186 PMT_OFFSET ! Offset into prompt tables 
> 284 1187 2 PROMPT BUFFER: VECTOR CMAX_PMT_SIZ-2+NO_OF _INP_CHARS+A_LONGWORD, BYTE], 
; «285 1188 INPUT_BUFFER: REF VECTORC,BYTET, 
: 286 1189 PREV_CouU ' Current character count 
3 3H ity OLD_POINTER, pointer to previous buffer 
° e . u 
; 289 1138 $ NEW_DSCS ! Pointer to new input Line descriptor table 
; 30 1193 2 NEW-POINTER : REF VECTOR C, BYTE); i Pointer to current buffer 
; 32 1195 2 LABEL , 
: 1138 GET_LINE, ! Block to get a command Line 
; 235 1198 FIND_COMMENT; ! Block to find comment Lines 
; 397 1200 MAP 
3 s 1s0 STG_DESC: REF BLOCK (8, BYTE); ! String descriptor for parser | 
; 300 1208 1+¢ 
: 301 1204 !' Compute the offset into the provet tables for the prompt code. | 
3 4 ! 05 ; Set the INPUT_BUFFER to be the local input buffer. 
: 304 1 $9 PMT_OFFSET = .PROMPT_CODE - MIN_PMT_CODE; 
: 05 ' 4 INPOT_BUFFER = CHSPTR(PROMPT_BUFFERCMAX_PMT_SI2-2), 0); 
: O9 1210 2 !+¢ 
: 308 1211 : Collect an entire command line. Enter a loop that collects multiple Lines of 
3; 309 1 \¢ ! input, ceasing only when a Line ends with other than a hyphen ("="), which 
3 10 121 ! is the Line continuation character. Buffer the possibly multiple Lines into 
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| 
n 8 
CMD 16-Sep-1984 00:17:45 VAX-11 Bliss-32 V4.0-742 Page 10) 
-000 12-808 - 1 3be 90:45:43 DISKSVMSMASTER:CPATCH.SRCIPATCMD.B32:1°> (49) 
>; 311 1214 ' free storage. H 
; \3 1215 len | ; 
3; 1 1 16 PREV_COUNT = 0; : 
3 314 121 OLD_POINTER = 0; 3 
3; 315 1 18 PATSGL_INPRAB [RABSL_PBF] = CHSPTR(.PROMPT_MSG PTRC.PMT_OFFSETI,0); ; 
; 316 121 PATSGL_INPRAB [RAB$B_PSZ] = .PROMPT_MSG SIZC.PAT_OFFSETI; : 
; 317 1 9 PATSGL_INPRAB CRABSL_UBF) = CHSPTR(TINPOT_BUFFER; 0); : 
; 8 i c les ; 
; 0 1 ! Now get a command line. If the first character is a comment delimiter : 
; : then get another comman ne. | Py 
1 \ 4 {th h d li | 
: 358 1206 @ GET LINE: | 
; 4 12 7 BEGIN : 
: 325 1228 3 REPEAT : 
; 326 12 9 4 BEGIN : 
3; 327 1230 4 PATSGL_ERRCODE = $GET (RAB = PATSGL_INPRAB); ; 
; 328 1231 4 IF NOT .PATSGL_ERRCODE : 
3 359 1 3 4 THEN ; 
; 0 1233 5 BEGIN : 
3; 331 1236 5 144 ; 
: 3g : $2 ; } The $GET failed. Set status so that PATCH returns to CLI. : 
: 334 1337 6 iF (,PATSGL_ERRCODE EQL RMS$_EOF) 3 
; 335 1238 5 THEN : 
3 336 1238 6 BEGIN | : 
3 337 1240 6 PAT$GB_TAKE_CMD = FALSE; : 
3 $35 ise) ° RETURNTPATSGL ERRCODE) ; : 
: 340 1508 5 ELSE F 
: 341 1244 § SIGNAL (PATS_READERR,1,GETFILDSC(PATSGL_INPFAB) , .PATSGL_INPRABLRABSI._STSJ,.PATSGL_IN ; 
; 302 1249 5 END : 
; 34 1246 4 3 : 
3 344 167 4 F IND_ COMMENT: ; 
3 «345 1248 5 BEGIN 3 
; 346 1249 5§ LOCAL 3 
; 347 1250 5 MSG_SI2; $ 
> 348 1251 5 MSG_S12=.PATS$GL_INPRABCRABSW_RSZ); 3 
; * 1938 g WHITE (.MSG_SIZ2~GTR 0) : 
: 2) 1586 § PFO INPUT BUFFERC .PATS$GL_INPRABCRAB$W_RSZJ-.MSG_SIZ] EQL %x'20") ; 
+ 353 1256 7 OR (INPUT. BUFFERL-PATSGL, INPRABLRABSW_R§73~7MSG_ S171 EQL %x'09") | 3 
> 354 1337 é THEN 3 
: 355 1258 6 MSG_SIZ = .MSG_SIZ - 1 3 
3 56 1259 8 ELSE | 3 
3; 357 1260 IF (. INPUT_BUFFERC.PATSGL_INPRABLCRABSW_RSZJ-.MSG_SIZ] EQL COMMENT_CHAR) 
: 328 152 $ ‘ont | 
: 360 1 8 7 PATSWRITEFILE (.PATSGL_INPRABLRABSW_RSZ), | 
> 361 1264 7 CHSPTR(TINPUT BUFFER; 0), 
: 6¢ 1265 7 PATSGL_JNLRABJ, 
: 36 1266 7 LEAVE FIND_COMMENT; | 
: 3ee 1568 6 ne | 
: 366 1369 6 LEAVE GET_LINE; 
: 7 1270 § END; | 
| 
i 


7 
if so 1984 17:45 VAX-11 Bliss-32 V4.0-742 Pa of PA| 
-Sep- 217: - Hs -0- e 
12786871382 99335340 DISKSVMSMASTER: CPATCH.SRCIPATCMD.B32;1> (4) | voé 
| 
; 1271 4 END; 
3 1 if; END; 
3 127 END; 
; 1274 
° 1275 'e¢ } 
: 1 ug i Insert the prompt (without the <CR><LF>) at the start of the input buffer and 
3 : f i write the prompt plus the command to the journal file. 
4 a | 
; 1 8 CHSCOPY(. PROMPT_MSG_SIZC.PMT_OFFSETJ<-2, CHSPTR(.PROMPT MSG _PTRC.PMT_OFFSETJ,2), 
3 1280 A X_PMT_ Si2-2 CHSPTR (PROMPT BOFFER,0)); 
; : 81 PATSWRITEFILE(. -PATSGL INPRABLRABSU RS2]+MAX_PMT_SIZ-2, PROMPT. BUFFER, | 
; 1 He 
3 1284 !e4 
$ } 82 A Now change the prompt to an underscore in case there are continuation Lines. 
: 1 BS CHSCOPY(. PROMPT _MSG SIZCCONT SUE PMT we CHSPTR(.PROMPT_MSG ee _PMTI,2), | 
: 1288 Ct T siz- CHSPTR(PROMPT _BOFFER,0 
; 1289 2 PATSGL_INPRAB [RABS$V_PT = | 
: 1290 PATS$GL_ INPRAB [LRABSL_PBFJ = FALSE PROMPT_MSG_PTRCCONTINUE_PMTJ,0); 
: 1$3 PATSGL_ INPRAB RABSB_ PSZ] = .PROMPT_MSG SIZCCONTINUE PMT); 
3 1598 5 144 | 
3 1$38 Loop, reading all continuation Lines for this command. 
3 ,ee i 
3 1538 REPEAT 
: 1298 | 
4-44 LOCAL P 
; 4 CONT_LINE; ! Boolean test for end of Line character | 
H 1308 4 IF (. INPUT_BUFFER C.PATSGL_INPRAB CRABSW_RSZJ - 1] EQL ‘-") 
3 1303 3 THEN 
; 1304 4 BEGIN 
F 1305 4 aly, wey ® ra RSZ] = .PATSGL_INPRAB CRAB$W_RS72] - 1; 
4 1306 4 CONT _LINE = 
; 1307 4 E 
g 1308 ELSE CONT_LINE = FALSE; 
3 1309 
3 1319 'e+ 
3 1311 i Allocate space for this buffer plus all previous buffers. 
5 13i¢ i If the space can be found, write the old and new buffers 
3 oi? 131? a into the new space. 
3 tig 1318 4 NEW POINTER = PAT$freez ((.PREV_COUNT + wt _BYTE_LOC + 
: $12 ! | ; -PATSGL_INPRAB CRABSW_RSZ] + 3) / 4)3 
3: 415 1318 4 IF (.OLD_POINTER NEQ 0) | g | 
3; 616 1319 3 THEN 
> 417 13 0 4 N 
; 4618 1321 4 CHSMOVE (.PREV_COUNT, .OLD_POINTER, .NEW POINTER); 
: 419 13 : 4 PATSFREERELEASE (,OLO_POINTER, (.PREV_COONT + NULL_BYTE_LOC + 3) / 4); 
: 134 1324 CHSMOVE (. PATSGL INPRAB Pa RSZ], CHSPTR(. pte! BUFFER,0), 
; 4g¢ 1325 CHSPLU S$ (NEW POINTER PREV NT); 
| « 1 6 PREV_COUNT = V_COUNT ¢ “PRTSOL. TONPRAB RRSSU NRS2M: 
: 626 1 NEW_ POINTER C. PREV COUNT) = 


33 


1$-sep-19 4 90:12:93 yA 


2 ° 
1a-Sep-1984 12:52 D R 79° 


=7%4 
H.SRCIPATCMD.832; 


ut ut 
when the command is over. PATSCP_ NP_DSCS is a pointer to a vector of 
Longwords. The first longword is the number of string descriptors in the 
vector. The remaining space is string descriptors, one for each input Line 
used for this command. “z unused descriptors are filled with zeros. 
PATSEND_OF_LINE in PATACT.B32 will deallocate the input Lines. 


i 
i 
1 

i 
i 
ico 

'e¢ 

! First check that there is a descriptor table allocated. : 

' If not, then allocate one and initialize the count of descriptors. 


iF (.PATSCP_INP_DSCS EQLA 0) 
THEN 


: 5 $ OLD_POINTER = .NEW_POINTER; 
059 8 ry | 
428 1 ' See whether this Line ends with a continuation character. 
? 3 ¢ ! If so, get another Line. 
43) 4 if NOT .CONT_LINE 
4 § 5 THEN EXITLOOP; 
4 $ PATSGL_ERRCODE = $GET (RAB = PATSGL_INPRAB); 
: ¢ i cn -PATSGL_ERRCODE 
4 $ 9 SIGNAL (PAT$_READERR,1 Se TF EL osc crates ire) »PATSGL INPRABCRABSL_STSJ,.PATSGL_INPRABCRAB | 
4 40 PATSWRITEFILE(.PATSGC_INPRABLRABSW_RSZJ+MAX_PMT-SIZ-2, PROMPT_BOFFER, 
438 4) PATS$GC_JNLRAB) ; 
2g END; 
0 4 | 
44 'ee 
i A complete Line has been collected. Now set up the return input line descriptor. 
47 2 STG_DESC Fdsc$w_ length) = ,PREV_COUNT; 
48 2 STG-DESC Cdsc$a_pointer] = .NEW POINTER; 
ae 
lee 
2] ! The in Line must be entered in the in descriptor table for deallocation 
334 | 
54 
55 
56 
57 
58 
59 
360 
361 
306 
36 


BEGIN 
PATSCP_INP_D 
PATSCP_INP_D 
END; 


cs 
C$ | 
‘ee | 

| 


SCS = PATSFREEZ(((A_QUADWORD * NUM_OF_DSCS) + A_LONGWORD +3)/4); 
SCSCO] = NUM_OF 3; 


a ae ey 


PUR “COON UEWN-"OVOOnOu 


' Now enter a string descriptor for the input Line just read. Use the first 
! zero entry in the descriptor table. If there is none, then a larger table 
' must be allocated and the old table deallocated. 


INcR LOOP FROM 1 TO .PATSCP_INP_DSCS(OJ*2 BY 2 
IF (.PATSCP_INP_DSCSC.LOOP] EQL 0) 
THEN 


BEGIN 
PATS$CP_INP_DSCS 
PATSCP"INPoDSCS 


pt oor = ,PREV_COUNT + 
Pp +1} 

RETURNT.PAT 

END; 


1: 
t = ,NEW_POINTER; 
ERRCODE); 


eee ee ee ee ee a ee ee ee ee ee ee ee ee ee a el el el 


WWWAWAAIA AANA AANA AIAN 
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144 

i There was not enough room in the descriptor table. Therefore allocate a 
i larger table, copy in the old + pg deallocate the old table, and insert 
& the new descriptor into the table 


NEW -DSCS = PATSFREEZ( (((.PATSCP 7} NP 05 ppcston + MORE_DSCS)* A_QUAPWORD) + A_LONGWORD 
CHSMOVE ((( .PATSCP_ INP 3 tee * A *auADuokD) + A_LONGWORD), CHSPTR(.PATSCP_INP_DSCS, 0), 


CHSPTR(.NEW_D 

PATSFREERELEASE (. Arbee “iNé. p bse ((, niga tenn * A_QUADWORD) + A_LONGWORD 
PATSCP. INP_DSCS_= CHSPTR (.NEW i. 
PATSCP~INP~ =beestl: -PATSCP_ i 
I i: 


$ 

4 
D 
NP_DSC 

PATSCP. INP _DSCSL( PATSCF. ATS . 


$ iy = PREV COUNT + 1; 
$ = “NEW wW_POINTER; 
ATSCP~INP-DSCS 0) = N 3° + MORE _DSCS; 
RETURN RNT.PATSGL SERRCODED 


F 
§ 
§ 
SCO 


SE NWWAAAAWANAAAAAA 


a kk kd dt 
SOOO OOOOOOOOMM@Mco 
—ODOOVNOAVNE WN OOONOu 


— 


.PSECT _PATSPLIT,NOWRT ,NOEXE,0 


3E 48 43 54 41 50 OA OD O0000 P.AAA: .ASCII <13><10>\PATCH>\ : 
3E 44 4C 4F OA OD 00008 P.AAB: .ASCII <13><10>\0LD>\ : 

Ha 57 45 4E OA OD OQOOOE P.AAC: .ASCII <13><10>\NEW>\ 3 

E 43 4F 4C OA OD 00014 P.AAD: .ASCII <13><10>\LOC>\ : 

3 4D 41 f OA OD OQOO1A P.AAE: .ASCII <13><10>\NAM>\ 3 

3E 50 58 45 OA OD 00020 P.AAF: .ASCII <13><10>\EXP>\ i 

3E 4F 43 45 OA OD 00026 P.AAG: .ASCII <13><10>\ECO>\ 3 

3— SF OA OD O002C P.AAH: .ASCII <13><10>\_>\ 3 


-PSECT _PATSOWN,NOEXE,2 
00000000* 00000000" 00000000" 00000000* 00000000° 00000000° 00000 PROMPT_MSG_ PTR: 
-ABDRESS P.AAA, P.AAB, P. AAC P.AAD, P.AAE, - 3 
00000000° 00000000° 00018 P.AAF, P.AAG, P.AAH : 
04 06 06 06 06 06 06 O08 00020 PROMPT_MSG SIZ: 
-BYTE 8, 6, 6, 6, 6, 6, 6, 4 3 
.EXTRN SYSS$GET 


-PSECT _PATSCODE.NOWRT,2 


OFFC 00000 ENTRY PATSPROMPT READ, Save R2,R3,R4,R5,R6,R7,R8,~; 1100 

5B 000000006 EF 9E 0000 MOVAB PATSGL. INPRAB+34, R11 : 

E FF CE 9E 000 MOV a4 (SB) . SP : 
52 04 AC 0000005A 8F C3 000 é SUBL 3 $0" CODE, PMT_OFFSET : 1207 
57 06 AE 9€ 0001 MOVAB PROMPT ROUFFER ope * INPUT_BUFFER > 1208 
3 D4 0001B CLRL + PREV_COUNT > 1216 
A 04 0001D CLRL OLD POINTER > 1217 
OE AB 00000000'EF42 DO O001F MOVL PRORPT _ Ass PIREPMT_OFFSET2, ; 1218 
12 AB 00000000'EF42 90 00028 MOVB PROMPT_AS MSG S17 PMT_OFFSET, 1219 
02 AB 57 00 MOVL T aUrrER *PATSGL. INPRAB+36 > 1220 
DE AB oF itt 5 1$: PUSHAB PATSGC. IN PRAB : 138 


PA 
9 -742 Pege 1% 
1 Sep 1984 12:52:30 DISKSVMSMASTERSCPATCH. SRCIPATCMD.B32-3 iad 3 
#1, SYSSGeT : 
900000006 00 i f 2 ROVE” ROL PATSCLERRCODE 1231, 
00000006 K EB 00046 8L8S 3 ; 1237 
01827A BF G : : 1240 
* 000000006 EF if O88 CURL PATSGB_TAKE_cMD : 1349 
be 039 2: -MOVO.__—PATSGL._ INPRAB+B, ~(SP) tad ; 
7€ Bbc EF OF OOo buts PATSGLINPF AB 
Hon000006 OT Fe boos CALLS #1, GETFILDSC : 
EBD pegec T$_READERR ; 
Se at ee Fomics | 
rene Bs SC OOO7D 3$: -AGVZWL PATSGL_INPRAB#34, MSG_S1Z i 182) 
es 63 $2 pone bee bkrseL INPRAB+34, RO — 
i sans e aan8s CMPB (ROTC INPUT_BUFFERI, W352 : 
s 6047 94 Gage CHPB (RO)CINPUT_BUFFERI, #9 a 
RR Bh 4494 DECL MSG_SIZ & 
$3 D7 00094 5$: ECL . 
4 11 00096 onPe (RO) CINPUT BUFFER], #33 3 1260 : 
21 6047 91 00098 6s C &R - pean 
EF OF b0095 PUSHAB PATSGL_JNLRAB 
000000006 EF 9F Oo0dE Se rag he er 
5 8C booae MOVZWL PATSGC_INPRAB+34, -(SP) 
7E 68 20 BOOKS CALLS #3, PATSWRITEFILE i ieee 
veeersaeic Tu ee on nOvzeL PROMPT _MSG_SIZCPMT_OFFSET], R1 : 1279 
$1 00000000 08 C2 QO0BA SuBL PROMET MSG_PTRCPMT_OFFSETJ, RO F coat ; 
AD 000000 Eas Oe booes MOVCS RI, 2(RO), #32, #67 PROMPT BUFFER hee 
02 A : : 
OF os bode PATSGL_JNLRAB 
F 9F 000cC PUSHAB ; 
Ot AEF ote BUSH PAVSEL-TWPRASS, 60 3 ; 
7 68 3¢ 000D mOVZy ie, ; 
E BS fe bocce CALLS PATSWRITEF ILE 2 087 
0006 EF £8 BOND Patnpt ate “S1Z+7, RO 
a Lcd ME A ra aman ea eat 
PT_MSG_PTR# : 1288 
02 i eee 6 OFS ROVES RO, -2(RB)<-#32. #6, “PROMPT _BUFFER - : 
00F9 ATSGL, INPRAB®7 : 1556 : 
BA OOOFA BICB2 #32, P ‘ 
7 & i BO 000FE MOVE” RB. PATSGL_TNPRAB? PATSGL._INPRAB#52 ¢ 193) | 
ae emer ea Samm Ca te a has! 
eb O7 ig Ole BEECH —-PATSGL_INPRAB+34 : 1385 
59 ; tf O16 MOVL #1, CONT_LINE : 1308 
BRB : 
§ D4 00118 98 CLRL = CONT_LINE | 


F 9 
16-Sep-1984 00:17:45 -VAK=11 Bliss-32 V4.0-742 Page 15 
19-808- 1382 90:45:49 DISKSVMSMASTER:CPATCH.SRCIPATCMD.B32: 1° (4) 
6B 3C 0011D 10$: MOVZWL PATS$GL_INPRAB+34, RO : 1316) 
30 04 A046 5 1 9 MOV 4«RO)EPREV COUNTS, RO : 1315. 
E 4 ¢? 001 DIVL3 #4, RO, -(SP) : 1316. 
000000006 gf 1 &F 109 CALLS #1, PATSFREEZ : | 
8 0 dO 001 MOVL RO, NEW_POINTER : 
>A p ist OL6_POINTER : 1318. 
68 ga 56 2 1 MOVC3  PREV_COUNT, (OLD_POINTER), (NEW_POINTER)  : 1321 
0 06 Ab E 138 MOVAB 4(R6J, RO > 1322) 
7E 50 94 C? 0013F DIVL 4, RO, -(SP) : 
A DD 00143 PUSHL OLO_POINTER : | 
000000006 EF 02 EB 0145 CALLS #2, PATSFREERELEASE ; 
6648 67 68 28 0014C 11$:  MOVC3 PATSGL INPRABS 4, (INPUT_BUFFER), - + 1325) 
(PREV_COUNT) NE “POINTER] : 
50 $8 3¢ 00151 MOVZWL PATSGC_INPRAB+34, RO 3: 1326 
56 CO 00154 ADDL2 RO, PREV_COUN : 
6648 94 00157 CLRB = (PREV_COONT) CNEW_POINTER : 1327) 
SA 58 00 Q015A MOVL §§ NEW_POINTER, OLD-POINTER : 1328 
53 59 £9 015 LBC ONT_LINE, { : 1334 
DE AB 9F 00160 PUSHAB PATSGL_INPR 3: 1336 
000000006 00 gi FB 00163 CALLS , SYS$GET ; 
00000000G_ EF 0 pO 0016A OVL RO, PAT$GL_ERRCODE ; 
g2 000000006 EF c8 0171 BLBS § PATSGL_ERRTODE, 128 > 1337 
E —6 AB 7D 00178 MOVO = PAT$GL-INPRAB+8, -(SP : 1339 
000000006 EF 9F 0017C PUSHAB PATS$GL~INPFAB ; 
000000006 EF 01 FB 00182 CALLS #1, GETFILDSC : 
50 DD 00189 PUSHL RO : 
01 DD 0018B PUSHL #1 ; | 
000000006 8F DD 0018D PUSHL #PAT$_READERR : 
000000006 00 0S FB 00195 CALLS #5, LYBS$SIGNAL : 
000000006 EF 9F O019A 12$ PUSHAB PATSGL_JNLRAB : 1340 
04 AE 9F OO1A0 PUSHAB PROMPT~BUFFER : 
7E 6B 3C OO1A3 MOVZWL PATSGL~INPRAB+34, -(SP) : | 
6E 06 CO 001A6 ADDL2 #6, : 
000000006 _ EF g FB O01A9 CALLS #3, PATSWRITEFILE : 
FF57 31 001B0 BRW : 1291 
50 08 Ac dO 00183 13$ MOVL STG_DESC, RO + 1347 
60 26 B0 0018 MOVW §PREJ_COUNT, (RO) ; 
04 A0 2 D9 01BA MOVL NEW POINTER, 4(RO) : 1348 
000000006 EF D5 001BE TSTL  PATSCP_INP_OSCS > 1363 
17 12 001C4 BNEQ 14$ F 
OB DD 001C6 PUSHL #11 + 1366 
000000006 EF 1 FB 001C8 CALLS #1, PATSFREEZ : 
900000006 EF : D Oi cE MOVL RO, PATSCP INP_DSCS : | 
00000006 FF DO 00106 MOVL #5. @PATSCP_INP_DSCS > 1367) 
51 000000006 EF DO 001DD 148: mov. PATSCP INP_DSCS: R1 ; 1375 | 
50 61 00 O1E4 MOVL », R ; 
53 50 01 O1E7 ASHL #1, RO, R3 : 
52 01 CE OO1EB MNEGL #1. LOO : 
11 11 OO1E BRB 16$ : | 
6142 D3 OlF 15$:  TSTL  (R1)CLOOPI > 1377 | 
OC 12 OO1F BNEG 16$ ; | 
6142 01 Ag 3 1F MOVAB 1(R6), (R1)CLOOP) : 1380 
04 A14 58 DO OO1FA MOVL NEW POINTER, 4(R1) CLOOP) > 1381 | 
FFE9 52 $3 fT 0020) 168: ACBL. «RS #2, LOOP, 158 : 1398 | 
5 B C4 8507 MULL2 Ht 44 : 1390 | 
| 
| 


Re Se Se Be Oe Oe Be Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Seas ese Se Se Se Se Se Se Se se Se Se Se Seas Fe Se Se Se teas 


; Routine Size: 


3 
000000006 4 
7 
9 
50 9 
3 

6A g 
50 9 
28 
7 0 
Q00000000G_ EF 
000000006 
50 33 
04 A14 

50 52 
08 A140 

61 
50 


627 bytes, 


Routine Base: 


000000006 


000000006 


01 


000000006 


_PATSCODE + 


OVNI NONI SS MIOONVONIOIII MOO 


SF LFOCOCOMMDOOCODS NOMDODBOOCOdNO 


OOOQOOCCCOOCOOCOOOOOOOOOOOOoO 


COOCOCOCOCCOOCOOCOOOOOCOOOOOoOoOO 


PROPPPIPIPIPYPINIPINIPINIPIPIPIPIPINPINIPIPINIPY 


NAAM & 


030 


t 


y 
-Sep-19 
-Sep-19 


17$: 


¢ ae 


$3 VAX-11 Bliss-32_ V4.0-742 
DISKSVMSMASTER: CPATCH.SRCJPATCMD.B32;1 


Hao’ RO 
+ tse 
SCS, R7 


RO, (R7), (NEW_DSCS) 
#3, R9, RO 


“ 
#4, RO, (SP) 


NEW_POINTER, 8(R1)CROJ 
PATSGL_ERRCODE, RO 


Pa age 


1H: QRNESS pRaddnBAsteke ne 


20-742 
TER: CPATCH.SRCJPATCMD.B32; 1 


-EXTRN LIBSSIGNAL 


3 PSECT SUMMARY 

; Name Bytes Attributes 

: _PATSCODE 688 NOVEC, NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 “PATSPLIT NOV EC; NOWRT, RD * NOEXE, NOSHR, LCL, REL, CON,NOPIC,ALIGN(O) 
>; <PATSOWN 40 NOVEC, WRT. RD .NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
4 Library Statistics 

‘SD ee Sot) ern MR == Syabels scoceso= Pages Processing 

3 File Total idaded Percent Mapped Time 

: -$255$0UA28: CSYSLIBILIB.L32;1 18619 18 0 1000 00:01.8 

: COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /VARIANT:1/LIS=LIS$:PATCMD/OBJ=OBJ$:PATCMD MSRC$:PATCMD/UPDATE=(ENH$:PATCMD) 


; Size: 688 code 5 88 data bytes 
; Run Time: 1:81:8 


: Lexemes/CPU-Min: 3 $36 
; ponecy Used: 236 pages 
; Compilation Complete 
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030 AH-BT13A-SE T CORPORATION 
VAX/VMS V4.0 | | | -PROPRIETARY 


